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This  final  report  was  prepared  by  the  Air  Force  Weapons  Laboratory,  Kirtland 
Air  Force  Base,  New  Mexico  under  Job  Order  88091822.  Dr.  Clifford  E. 

Rhoades,  Jr.  (DYP)  was  the  Laboratory  Project  Officer-in-Charae. 

When  US  Government  drawings,  specifications,  or  other  data  are  used  for  any 
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to  do  so,  for  the  United  States  Government  purposes. 
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PREFACE 
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ft 

The  ALTRAN  algebraic  processing  system  of  Bell  Laboratories,  Inc.,  Is 
available  at  the  Air  Force  Weapons  Laboratory  under  a SOFTWARE  AGREEMENT  and 
» a PATENT  LICENSE  AGREEMENT  between  Western  Electric  Company,  Inc.,  and  the 

United  States  of  America  as  represented  by  the  Department  of  Defense. 

These  agreements  grant  a personal,  nontransferable,  and  nonexluslve  right 
to  use  ALTRAN  solely  for  Internal  business  purposes  and  solely  on  the  worker 
computers  located  at  the  Air  Force  Weapons  Laboratory,  Klrtland  Air  Force  Base, 
New  Mexico.  These  computers  are  CDC  Cyber  176,  Serial  Numbers  102  and  104,  and 
CDC  6600,  Serial  Numbers  6 and  1043.  In  addition,  these  agreements  provide 
that  ALTRAN  shall  be  held  In  confidence,  that  It  will  not  be  used  except  as 
authorized,  and  that  no  copies  shall  be  made  except  those  copies  which  are 
necessary  for  use  or  for  safekeeping. 

It  Is  a pleasure  to  acknowledge  the  assistance  of  Dr.  Wayne  Fullerton  of 
Los  Alamos  Scientific  Laboratory  (LASL/C-3)  In  the  Installation  of  ALTRAN  and 
In  the  preparation  of  this  report. 
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SECTION  I 
INTRODUCTION 

The  ALTRAN  algebraic  processor  has  been  implemented  at  the  Air  Force  Weapons 
Laboratory  (AFWL).  This  makes  possible  the  solution  and  checking  of  research 
involving  much  algebraic  computation.  The  ALTRAN  language  is  fully  described  in 
reference  1.  The  reader  should  use  this  technical  report  in  conjunction  with 
reference  1;  comparable  sections  from  reference  1 are  cited  in  parenthesis 
throughout  the  report. 

ALTRAN  is  available  at  a number  of  computing  installations,  but  few  as  large 
as  the  AFWL.  We  have  a minimum  of  1 OK  60  bit  words  of  workspace,  and  the  CDC 
Cyber  176  is  generally  10  to  30  times  faster  than  the  computers  on  which  ALTRAN 
is  usually  implemented.  These  facts  coupled  with  the  efficiency  of  ALTRAN  permit 
truly  large  algebraic  problems  to  be  done. 

ALTRAN  is  about  15  times  faster  than  FORMAC  in  a PL/ I environment,  and  it  is 
at  least  12  times  faster  than  REDUCE.  Moreover,  ALTRAN  uses  very  little  core 
compared  with  FORMAC  and  REDUCE.  ALTRAN  has  already  solved  in  15  seconds  problems 
which  could  not  be  solved  with  FORMAC  or  REDUCE  because  more  than  a half-million 
words  of  storage  were  required  and  a prohibitive  amount  of  execution  time  would 
have  been  required. 

The  ALTRAN  system  Is  still  under  development— a substantial  advantage  because 
bugs  can  be  fixed  as  they  are  discovered.  One  feature  of  ALTRAN  has  not  yet  been 
Implemented:  Interlanguage  communication  still  Is  not  (easily)  possible. 

The  best  way  to  learn  ALTRAN  Is  to  read  the  manual  carefully,  especially 
sections  B,  H,  and  L.  Run  several  simple  problems  at  the  same  time— a good  one 
to  try  can  be  found  In  the  examples  section  of  this  report.  Turn  on  all  the 
options  (LISTOUT,  LISTF)  just  this  once  to  get  an  idea  of  what  is  going  on.  After 
you  have  run  several  programs,  you  will  probably  find  a rereading  of  section  B 
very  helpful. 


1.  Brown,  Dr.  W.  S.,  ALTRAN  User's  Manual,  4th  ed.,  Bell  Laboratories, 
600  Mountain  Ave.,  Murray  Hill,  NJ  57974. 
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Note  that  the  restriction  of  the  language  to  rational  functions  still 
includes  a very  large  class  of  problems  and  that  this  restriction  does  not  pro- 
hibit the  use  of  special  functions  (e.g.,  SIN  and  COS)  if  one  is  willing  to 
treat  each  function  as  an  Independent  variable  and  define  special  simplification 
rules  via  AMOD.  Also  note  that  the  prohibition  of  floating  point  numbers  in 
algebraics  can  be  circumvented  by  declaring  the  algebralcs  to  have  another 
Independent  variable,  call  It  TEN.  Then  1.8603E12  could  be  represented  by 
18603  * TEN  **  8,  and  0.054  as  54/TEN**3.  Do  not  use  too  many  significant 
figures,  or  Integer  overflow  may  result. 

In  writing  efficient  programs  there  are  two  good  general  rules  which  you  can 
follow.  First,  try  to  formulate  your  problem  in  a way  which  minimizes  the  number 
of  terms  In  intermediate  expressions.  Second,  try  to  formulate  your  problem  so 
that  it  Is  easy  for  ALTRAN  to  do.  The  order  of  preference,  with  most  preferable 
formulations  first.  Is 

1.  Polynomials 

2.  Polynomials  with  side  conditions 

3.  Rational  polynomials 

4.  Rational  polynomials  with  side  conditions 

If  you  publish  any  research  which  required  ALTRAN  as  a step,  a reprint  would 
be  appreciated  by  ALTRAN  authors  A.  D.  Hall  (ref.  2)  and  Dr.  W.  D.  Brown  of  Bell 
Laboratories  (ref.  1).  We  hope  that  your  application  of  ALTRAN  along  with  any 
difficulties  you  may  have  encountered  will  Influence  the  future  development  of 
ALTRAN  and  other  algebraic  languages. 


> 


2.  Hall,  A.  D. , "The  ALTRAN  System  for  Rational  Function  Manipulation: 
A Survey,"  Comm.  ACM,  14.,  pp  517-521,  1971. 
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SECTION  II 

LOCAL  CONSIDERATIONS 


1.  INTRODUCTION  (Q.6.1) 

The  ALTRAN  system  has  been  designed  and  Implemented  In  a way  that  allows  It 
to  be  Installed  on  a variety  of  computers.  One  of  the  advantages  of  this  flexi- 
bility is  that  certain  characteristics  of  the  Implementation  can  easily  be  varied 
to  fit  particular  computers  and  operating  systems.  The  purpose  of  this  section 
is  to  provide  a quick  reference  guide  to  those  features  which  are  peculiar  to 
the  ALTRAN  installation  on  the  CDC  Cyber  176  computers  at  the  AFWL. 

2.  COMPILATION  AND  EXECUTION  (Q.6.2) 


The  control  cards  needed  to  compile  and  execute  an  ALTRAN  program  are  similar 
to  those  used  to  execute  a small  FORTRAN  program— the  biggest  difference  is  that 
two  extra  control  cards  are  needed  In  order  to  set  up  the  ALTRAN  run-time  library. 
Another  difference  is  that  there  are  a few  extra  options  for  the  ALTRAN  user. 

If  the  ALTRAN  program  uses  default  Input/output  units  (Q.6.4),  default  long  pre- 
cision (Q.6.3  and  Q.6.13),  and  other  default  parameters,  then  the  deck  setup  for 
executing  an  ALTRAN  program  Is  as  follows: 

EDR.T77.  (sample  job  card) 

ACCOUNT ( NAME ,«J0B0RDER-DCD ,0RG , PHONE ) (sample  account  card) 

ATTACH(OLD,ALTRANLIB,ID-DYSXCER) 

LIBRARY (OLD) 

MAP(OFF) 

C0PYCR( INPUT, SYSIN) 

ALTRAN(SYSIN) 

FTN(A,I*F0RTIN,R*0) 

RFL, 160000.  (optional  see  below) 

LOAD(LGO) 

XEQ. 

7/8/9  card 


ALTRAN  source  procedures 
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Many  ALTRAN  jobs  will  execute  in  less  than  1 minute  and  print  fewer  than  50 
pages.  Output  from  WRITE  and  WRITE(6)  statements  is  sent  to  OUTPUT,  the  printer. 

Diagnostic  output,  including  symbolic  snaps  (E.4)  and  run  statistics  (B.5.13), 
is  also  sent  to  OUTPUT.  If  the  program  reads  input  via  READ  or  READ  (5)  state 
ments,  the  input  will  be  taken  from  INPUT,  the  card  reader. 

The  remainder  of  this  section  is  devoted  to  a detailed  explanation  of  the  • 

control  cards. 

The  ATTACH  and  LIBRARY  cards  are  used  to  make  available  the  ALTRAN  library 
from  which  both  ALTRAN  and  the  main  program,  XEQ,  for  the  user's  job  step  execu- 
tion are  loaded.  ALTRAN  is  a FORTRAN  program  which  translates  ALTRAN  source  code 
to  legal  FORTRAN  subroutines.  These  subroutines  are  written  on  the  file  FORTIN 
and  the  files  TAPE10  and  TAPE11  are  used  for  intermediate  storage.  FORTIN  is 
rewound  both  before  and  after  it  is  used.  The  file  INPUT  is  rewound  prior  to 
use.  The  ALTRAN  program  card  is 

PROGRAM  ALTRAN ( INPUT .OUTPUT, FORTIN ,TAPE1 0, TAPE! 1 , 

TAPE5= INPUT, TAPE6=0UTPUT,TAPE20=F0RTIN) 

If  ALTRAN  translation  time  errors  are  detected,  ALTRAN  issues  a job  step  abort 
after  the  last  procedure  In  the  input  stream. 

Otherwise,  the  FORTRAN  compiler,  FTN,  is  Invoked  to  process  the  legal  FORTRAN 
subroutines.  A listing  of  the  FORTRAN  subroutine  corresponding  to  an  ALTRAN  pro- 
cedure is  produced  by  FTN  If  the  ALTRAN  option  LISTF  is  selected  for  that  ALTRAN 
procedure.  Otherwise,  no  FORTRAN  source  listing  is  made.  Only  the  most 
enthusiastic  paper  recyclers  could  want  a FORTRAN  source  listing.  The  DECK, 

NODECK  options  for  producing  a punched  object  deck  are  not  implemented.  There  is 
little  advantage  In  attempting  to  punch  such  decks.  The  time  required  to  trans- 
late and  compile  ALTRAN  codes  Is  usually  trivial,  and  the  source  decks  usually 
have  fewer  cards  than  the  resulting  object  decks. 

Now  the  ALTRAN  object  code  produced  by  FTN  by  default  on  LGO  is  ready  to  be 
executed.  Because  the  load  map  produced  with  the  default  PART  map  option  requires 
10  pages.  It  is  suggested  that  the  map  continue  to  be  suppressed.  Execute-time 
error  reference  the  ALTRAN  source  code,  and  this  Is  usually  entirely  sufficient. 

Of  course,  if  a disastrous  error  occurs,  both  the  FORTRAN  source  listing  and  the 
load  map  may  have  to  be  obtained. 

If  Input  for  READ  or  READ  (5)  statements  is  to  be  obtained  from  a file  other 
than  INPUT,  then  INPUT  should  be  assigned  to  that  file  on  the  XEQ  card.  Likewise, 
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if  output  from  WRITE  or  WRITE  (6)  statements  is  to  go  to  the  file  other  than 
OUTPUT,  then  OUTPUT  should  be  assigned  to  that  file.  The  XEQ  program  card  is 

PROGRAM  XEQ( INPUT, OUTPUT, TAPE25.TAPE27, 

TAPE5® INPUT, TAPEf “OUTPUT , TAPE26=0UTPUT ) 

Hence,  only  three  files  may  be  used. 

In  the  current  implementation  of  ALTRAN,  there  is  only  one  run-time  parameter 
which  may  be  set.  This  is  the  number  of  words  of  work  space  to  be  used.  The 
minimum  value  is  10,000  words.  An  RFL  card  can  be  used  to  specify  any  value  of 
central  memory  allowed  by  NOS/BE,  in  which  case  the  work  space  value  is  the 
memory  remaining  after  all  routines  are  loaded.  With  RFL,  160000.,  normally  about 
20,000  decimal  words  are  available. 

There  are  two  restrictions  in  the  current  implementation.  First,  the  number 
of  words  to  be  used  for  long  precision  integers  is  fixed  at  2.  Two  words  allow 
integers  as  large  as  1028  which  should  be  large  enough  for  virtually  all  algebraic 
problems.  Second,  all  hardware  and  software  interrupts  are  automatically 
recovered.  They  are  intercepted  to  permit  ALTRAN  to  give  a snap  dump  of  the  work 
space.  Normally,  this  is  the  most  useful  information,  since  the  work  space  is  a 
dynamic  stack. 

3.  LIMITS  (Q.6.3) 

The  maximum  and  minimum  precision  for  long  integers  is  2 words,  and  the  maxi- 
mum work  space  size  is  approximately  80,000  decimal  words  on  our  current  NOS/BE. 

If  a logical  unit  other  than  5 or  6 is  used,  it  must  be  25. 

4.  RUN-TIME  INPUT  AND  OUTPUT  (Q.6.4) 

At  run-time,  all  ALTRAN  Input  and  output  is  carried  out  by  FORTRAN  READ  and 
WRITE  statements.  Because  the  FORTRAN  main  program  used  to  drive  ALTRAN  pro- 
cedures Is  In  the  ALTRAN  run-time  library  and  not  accessible  to  the  user,  all 
nondefault  unit  assignments  must  be  made  on  the  XEQ  card  (and  then  be  processed 
by  the  main  program).  The  units  with  a preassigned  function  in  the  run-time 
system  are  given  below: 

Logical  unit  5 Is  used  for  READ  statements  with  no  specified  unit  or  with  a 
null  unit  number.  By  default,  unit  6 is  assigned  to  OUTPUT. 

Logical  unit  25  may  be  used  for  punched  output,  because  It  has  a linelength 
of  80  columns.  (Other  units  have  a default  linelength  of  80  at  AFWL.)  See 
section  Q.6.14  for  another  use  of  unit  25.  (Note:  For  section  Q.6.14  use,  the 
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linelength  must  be  set  to  72  by  OPTS  calls.)  Punched  output  may  be  obtained  by 
writing  on  unit  25  and  assigning  that  unit  to  PUNCH  on  the  XEO  card  or  by  using 
a DISPOSE  card. 

5.  REAL  UNDERFLOW  AND  OVERFLOW  (Q.6.5) 

When  a real  underflow  occurs,  zero  is  assumed  and  execution  continues. 

When  a real  overflow  occurs,  the  run  is  terminated  (Q.6.6). 

6.  ABNORMAL  TERMINATIONS  (Q.6.6) 

If  the  execution  of  an  ALTRAN  program  is  terminated  because  of  an  error 
detected  by  the  FORTRAN  run-time  system  or  by  the  operating  system,  a SNAP  and 
run  statistics  are  automatically  given.  The  first  procedure  in  the  SNAP  will  be 
the  one  in  control  at  the  time  the  error  was  detected.  The  reason  for  termina- 
tion can  be  found  in  the  dayfile. 

7.  END  OF  FILES  (Q.6.7  also  see  B.3.6) 

.EOF  is  not  required  at  the  end  of  translator  input. 

.EOF  is  not  required  at  the  end  of  run-time  input. 

8.  LINE  LENGTHS  (Q.6.8) 

The  translator  reads  the  first  80  characters  from  an  input  line,  and  prints 
them  in  the  source  listing  (D.2).  Sequence  numbers  may  be  used  by  preceding 
them  with  # in  Column  72. 

At  run-time,  only  the  first  80  characters  of  each  input  line  are  considered 
meaningful.  When  output  Is  to  be  punched  or  used  for  later  input,  be  sure  that 
the  value  of  the  output  line  length  option  (D.4)  is  no  more  than  80  characters 
(the  default  at  AFWL  is  80). 

The  maximum  value  of  the  output  line  option  is  136. 

9.  THE  DECK  AND  LISTF  OPTIONS  (Q.6.9) 

The  punched  object  deck  option  (D.2)  is  not  effective,  and  is  permanently  set 
to  NODECK. 

The  FORTRAN  listing  option  (D.2)  is  effective  and  defaults  to  NOLISTF  for 
each  ALTRAN  procedure.  t 

10.  The  translator  reads  input  from  files  INPUT  (by  default)  and  writes  program 
listings,  symbol  tables,  etc.,  on  file  OUTPUT.  Diagnostics  are  also  written  on 
file  OUTPUT. 

10 
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File  OUTPUT  is  used  for  the  listing  of  compiled  FORTRAN  translations,  and 
the  file  L60  is  used  for  object  decks. 

11.  CHARACTER  SET  (Q. 6.11) 

The  local  representations  of  the  ALTRAN  special  characters  are  the  same  as 
the  standard  representations  (B.3.2),  except  as  follows: 


ALTRAN  character 

Local  representation 
Data  100s  (key  punch)  All 

others 

" quote 

ll 

(8-4) 

t 

: colon 

• 

(8-2) 

: 

; semicolon 

> 

(12-8-7) 

» 

hyphen 

- 

(0-8-5) 

r 

# sharp 

# 

(0-8-6) 

= 

**  exponentiation 
operator 

★★ 

(11-8-4,11-8-4) 

*★ 

12.  TOKEN  LENGTHS  (Q.6.12) 

In  the  interests  of  compatibility  and  uniformity,  the  maximum  length  of  an 
identifier  is  6 characters.  For  procedure  names  with  external  scope  the  maximum 
is  6 characters. 

The  maximum  length  of  a character  string  is  135  characters. 

All  other  tokens  are  limited  to  145  characters  in  length. 

13.  PRECISION  AND  RANGE  OF  NUMBERS  (Q.6.13) 

The  magnitude  of  a short  Integer  cannot  exceed  10l4-l.  The  magnitude  of  a 
long  integer  cannot  exceed  102e-l. 

There  are  approximately  14  significant  digits  in  a short  real,  but  only  13 
digits  occur  In  output.  Similarly,  there  are  28  significant  digits  in  a long 
real,  but  only  27  occur  In  output. 

The  largest  value  that  may  be  represented  by  short  and  long  reals  is 
approximately  10s21. 

For  further  Information  about  the  precision  and  range  of  numbers  see 
Section  B.5.4  of  reference  1. 
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14.  GENERATING  FORTRAN  STATEMENTS  IN  ALTRAN  (Q.6.14) 

One  nonstandard  feature  and  one  nonstandard  convention  have  been  implemented 
in  ALTRAN  in  order  to  facilitate  the  generation  of  legal  FORTRAN  statements  from 
ALTRAN  programs.  The  convention  requires  on  to  WRITE  72-column  output  on  unit 
number  25  by  changing  the  line  length  via  the  procedure  OPTS.  That  is,  the  line 
length  of  unit  25  must  be  set  to  72  columns  for  use  by  FTNOUT  (see  below).  Out- 
put written  on  25  is  otherwise  normal  ALTRAN  output  which  could  later  be  read 
from  another  ALTRAN  procedure.  There  will  be  blank  lines  between  output  lines, 
no  FORTRAN  continuation  characters,  and  multiple-precision  integers  will  contain 
hyphens . 

In  order  to  obtain  legal  FORTRAN  statements  from  output  on  unit  25,  it  is 
necessary  to  invoke  the  ALTRAN  procedure  FTNOUT,  a nonstandard  feature  In  ALTRAN. 
FTNOUT  rewinds  unit  25,  then  reads  It  and  puts  variable  names  on  the  left-hand 
side  of  equations.  FTNOUT  also  deletes  blank  lines,  inserts  FORTRAN  continuation 
numbers  in  column  6,  and  converts  multiple  precision  Integers  to  single  precision 
floating  point  numbers.  Output  from  FTNOUT  is  written  on  unit  27.  Most  likely 
it  will  be  DISPOSED  to  PUNCH. 

A very  simple  example  of  the  use  of  these  features  follows  this  section. 

The  example  includes  the  intermediate  output  from  TAPE25  as  well  as  the  output 
from  FTNOUT.  Note  that  a complete  FORTRAN  routine  was  written.  In  many  cases, 
you  will  probably  want  to  obtain  only  an  equation  or  two  as  legal  FORTRAN  state- 
ments. Later  you  can  Insert  the  appropriate  FORTRAN  statements  to  make  a complete 
routine.  You  may  also  wish  to  change  some  of  the  names  of  the  variables  on  the 
left-hand  side  of  the  equation 

Several  notes  are  In  order  now. 

a.  Only  19  continuation  cards  are  permitted  by  FORTRAN,  but  FTNOUT  will 
write  as  many  as  are  needed.  If  more  than  19  are  written,  you  will  have  to  edit 
the  output  by  hand  and  perhaps  use  a temporary  variable  in  order  to  ensure  that 
all  equations  have  fewer  than  19  continuation  cards.  In  order  to  minimize  the 
probability  of  such  long  equations,  use  1 or  2 character  Independent  variable 
names,  use  the  factored  option  whenever  possible,  and  try  to  formulate  your  prob- 
lem to  minimize  the  number  of  terms.  Sometimes  a simple  substitution  such  as 

X * Y - 1 can  greatly  reduce  the  number  of  terms. 

b.  Because  multiple  precision  Integers  are  truncated  to  single  precision 
floating  point  numbers,  you  must  be  certain  that  the  attendant  loss  of  precision 
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will  not  adversely  affect  the  answers  you  need.  Ordinarily,  you  can  ensure  this 
simply  by  examining  the  equation.  In  complicated  cases,  however,  you  may  wish 
to  substitute  several  numbers  for  the  variables  in  ALTRAN  and  compare  the  (exact 
or  double  precision)  ALTRAN  numerical  results  with  the  (approximate)  FORTRAN 
results. 

c.  FTNOUT  obtains  the  name  of  the  left-hand  variable  from  the  comment 
automatically  written  by  ALTRAN  immediately  preceding  the  variable's  value. 
Arrays,  however,  are  written  as  lists;  they  contain  only  one  name  and  subexpres- 
sions may  appear  as  an  equals  sign  followed  by  a number.  Thus,  arrays  must  be 
written  to  unit  25,  one  element  at  a time. 
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SECTION  III 
EXAMPLES 

The  following  three  examples  are  provided  for  instruction  purposes. 
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ALTRAN  VERSION  I LEVEL  9 


1 PROCEDURE  MAIN  * SIMPLE  EXAMPLE  OF  USE  OF  FTNOUT 

2 LONS  ALSEBRAIG  <X«10,Y*10>  F 

3 ALTRAN  FTNOUT 

4 0PT8(201 t72)  « FTNOUT  REQUIRES  A LINE  LENGTH  OF  72 

5 F > EXPAND ( <X*2*Y*1 OOOOOO )**3  ) 

A UNITE  F • PRINT  F 

7 URITE  (25)  a FUNCTION  F(X,r)a, 

8 aC  EXAMPLE  PROS  URITTEN  UITH  FTNOUT."  , 

* F. 

0 ■ RETURN"  " ENB" 

t « UE  NAVE  URITTEN  A SIMPLE  PROGRAM  ON  UNIT  25,  NOU  UE  INVOKE  FTNOUT  TO 

2 • TNIS  ALTRAN  OUTPUT  TO  LEGAL  FORTRAN. 

3 FTNOUT 

4 ENB 


NANE/EXTNANE 

USE 

TYPE  8TRUC 

PREC 

CLASS 

SCOPE  OB 

LAY 

F 

VAR 

AL6 

L 

L*001 

X 

INB 

ALG 

L*001 

Y 

INB 

AL6 

L*00) 

EXPANB/S9XPNB 

PROC 

AL6 

L 

S 

X 

FTNOUT 

PROC 

L 

S 

X 

MAIN 

PROC 

L 

s 

X 

0PTS/890PTS 

PROC 

INT 

s 

X 

L*001 

LAY 

C EXAMPLE  PROG  URITT 

C0N8 

CHAR 

s 

1000000 

CONS 

INT 

s 

10 

CONS 

INT 

s 

201 

C0N8 

INT 

s 

25 

CONS 

INT 

s 

2 

CONS 

INT 

s 

3 

CONS 

INT 

s 

72 

CONS 

INT 

s 

ENB 

C0N8 

CHAR 

s 

FUNCTION  F(X,Y 

CONS 

CHAR 

s 

RETURN 

CONS 

CHAR 

s 

» F 


X**3  ♦ A*X**2*Y  ♦ 3000000*X**2  ♦ 12*X*Y**2  ♦ 12000000*X*Y  ♦ 
3000000000000*X  ♦ 8*Y**3  ♦ 1 2000000* Y««2  * 4000000000000*Y  ♦ 
fOOOO.OOOOOOOOOOOOOO 
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***  NORMAL  RETURN  FROM  MAIN  PROCEDURE 
***  RUN  STATISTICS 


.04 A SECONDS  ELAPSES 
14  DIGITS  IN  SHORT  INTE6ERS 
21  DIGITS  IN  LONG  INTESER8 
10017  UORDS  IN  WORKSPACE 
388  NAXINUN  UORDS  USED 
149  CURRENT  UORDS  USED 
0 GARDA6E  COLLECTIONS 


« FUNCTION  F(XfY> 

« C EXAMPLE  PROS  WRITTEN  UITH  FTNOUT. 

8 F 

X**3  ♦ 4*X«*2*Y  ♦ 3000000*X**2  ♦ 12*X*Y**2  ♦ 12000000«X*Y  4 
3000000000000*X  * 8*Y**3  ♦ 1 2000000* Y**2  * 6000000000000*Y  4 
10000.00000000000000 
« RETURN 

• END 


FUNCTION  F(XtY) 

C EXAMPLE  PROS  WRITTEN  WITH  FTNOUT. 

F »X**3  4 A*X**2*Y  4 3000000*X**2  4 12*X*Y**2  4 12000000*X*Y  4 

1 3000000000000*X  4 8*Y**3  4 1 2000000*Y**2  4 4000000000000*Y  4 

2 1 00000000000000E4 
RETURN 

END 
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NFY  NOS/IE  1.2  KAFB  009  AFT  03/27/78 
FLCN-314000  NXCN*314000  FLEC-1720K  NXEC*0730K 


20.52.1 4.  EDR00K7  FROM  NX2/IU 

20.32. 14. IP  00000234  WORDS  - FILE  INPUT  , DC  04 

20.32. 14. EBR,T77,P40. 

20.32.13.  ACCOUNT ( RHOADES , *•*****•-•** , DTP ,1151) 
20.32. 15. STSIULL HATCH) 

20.52. 14.  DISPOSE (OUTPUT) 

20.52. 14.  NAP(OFF) 

20.32.14. ATTACH(0LDf ALTRANLII, ID*0YSXCER) 

20.32.1 4.  PF  CYCLE  NO.  > 003 

20.52.14. LIBRARY(0LD) 

20.52. 14. C0PVCR1 INPUT, SYSIN) 

20.52. 17. ALTRAN(SYSIN) 

20.32.23.  STOP 

20.52. 23. FTN(A,I>F0RTIN,R-0) 

20.52.25.  .047  CP  8EC0NBS  CONPILATION  TINE 

20.52. 23. L0ABtL80. 

20.52.24. XEQ. 

20.52.35.  EXIT 

20.52.35. REUINB(TAPE23ITAP£27) 

20.52.34. COPYSBF < TAPE25 , OUTPUT ) 

20 . 52 . 37 . COPYSBF < TAPE27 , OUTPUT ) 


20.52. 37. OP 

00001024  UORBS  - 

FILE  OUTPUT  , BC  40 

20. 52. 37. NS 

3584  UORBS  < 

75244  MAX  USED) 

20.52. 37. CPA 

1.172  SEC. 

(.172  ADJ. 

« 

20.52.37.10 

3.587  SEC. 

.894  ADJ. 

20.52.37.CN 

42.124  KUS. 

.118  ABJ. 

20.52. 37. SS 

3.282 

20.52.37.** 

PRIORITY  JOB  ** 

20.S2.37.PP 

11.050  SEC. 

DATE  05/01/78 

20. 52. 37. COST  ESTINATE 

9.35 

20. 52. 37. EJ 

END  OF  JOB,  IU 
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ALTRAN  VERSION  t LEVEL  9 


t PROCEDURE  NAIN 

2 ALGEBRAIC  (Xt20)  TCHEBY, T 

3 ALTRAN  TCHEBY 

4 INTEGER  N 

5 OPTS ( 1 01 f t > 

A DO  N * 0,3 

7 T ■ TCHEBY(N,X) 

8 UNITE  T 

9 BOENB 

10  END 


NANE/EXTNANE 

USE 

TYPE  STRUC 

PREC  CLASS  SCOPE  Dl 

LAY 

TCHEBY 

PROC 

ALG 

L 

S 

X 

L*001 

T 

VAR 

AL6 

L«001 

X 

INB 

AL6 

L*001 

HAIN 

PROC 

L 

S 

X 

N 

VAR 

INT 

0PTS/S90PTS 

PROC 

INT 

s 

X 

L*0O1 

LAY 

0 

CONS 

INT 

s 

101 

CONS 

INT 

s 

1 

CONS 

INT 

s 

20 

CONS 

INT 

s 

3 

CONS 

INT 

s 

ALTRAN  VERSION  1 LEVEL  9 


1 PROCEDURE  TCHEBY(N,X) 

2 ALGEBRAIC  TCHEBY, X 

3 STATIC  X 

4 INTEGER  N 

9 IF(N  .EQ.  0)  RETURN  (1) 

6 IF < N .EG.  1)  RETURN  (X) 

7 RETURN  ( 2*X*TCHEBY(N-1 ) - TCHEBY (N-2)  ) 

8 END 


NANE/EXTNANE  USE  TTPE  8TRUC  PREC  CLASS  SCOPE  Dl  LAY 


N 

TCHEBY 

X 

0 

1 

2 


VAR  INT 
PROC  ALS 
VAR  ALG 
CONS  INT 
CONS  INT 
CONS  INT 


B 

S X 

8 B 

8 
S 
S 


ADBR 


ABDR 


19 


2*X**2  - I 


• T 

X • ( 4*X**2  - 3 ) 


•<M  NORMAL  RETURN  FROM  MAIN  PROCEDURE 

***  RUN  STATISTICS 

.030  SECONDS  ELAPSED 
14  DIGITS  IN  SHORT  INTEGERS 
28  DIGITS  IN  LONG  INTEGERS 
10042  WORDS  IN  WORKSPACE 
303  MAXIMUM  WORDS  USED 
194  CURRENT  WORDS  USED 
0 8ARDA6E  COLLECTIONS 
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NFY  NOS/BE  1.2  KAFD  009  NFY  03/27/78 
FLCH*31 4000  NXCN-314000  FLEC*1720K  NXEC*0750K 


20.49.41 . EOROOKS  FROM  NX2/IU 

20. 49. 41. IP  00000320  WORDS  - FILE  INPUT  , DC  04 

20.49.41. EDR,T77,P40. 

20. 49. 42.  ACCOUNT (RHOAPES, ********-***, DYP, 1831) 
20.49.42.SYSBULL1DATCH) 

20. 49. 43.  DISPOSE (OUTPUT) 

20.49.43. ATTACH(0LD,ALTRANLIB,ID*DYSXCER) 

20. 49. 43.  PF  CYCLE  NO.  * 003 

20. 49. 43.  LIBRARY (OLD) 

20.49.S1.MAP(0FF) 

20.49.31 . COPYCR< INPUT, SYSIN) 

20.49.32. ALTRAN(SYSIN) 

20.49.38.  STOP 
20.49.58.FTN(A,I*F0RTIN,R*0) 

20.30.01.  .071  CP  SECONDS  COMPILATION  TINE 

20.30.01 . L0AB(L60) 

20.30.01 . XEB. 

20.30.10.  EXIT 

20.50. 10. EXIT(S) 

20.30. 10. OP  00000440  WORDS  - FILE  OUTPUT  , DC  40 

20.5 0.10.  NS  3584  WORDS  < 75244  MAX  USED) 

20.50. 10.  CPA  1.243  SEC.  1.243  ADJ. 

20.50.10.10  3.758  SEC.  .939  ADJ. 

20.50.10. CH  47.349  KWS.  .128  ADJ. 

20.50. 10. SS  3.447 

20.50. 10.  **  PRIORITY  JOB  *• 

20.5 0.10. PP  11.239  SEC.  DATE  05/01/78 

20.50. 10.  COST  ESTIMATE  4.58 
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ALT RAH  VERSION  1 LEVEL  9 


1 PROCEDURE  MAIM  I SIMPLE  EXAMPLE  OF  USE  OF  FTNOUT 

2 L0N6  ALGEBRAIC  (X«10,Y«10>  F 

3 ALTRAN  FTNOUT 

4 0PTS<201,72>  M FTNOUT  REQUIRES  A LINE  LEN6TH  OF  72 

5 F = EXPAND!  (X*2*Y+1000000)**3  ) 

6 URITE  F • PRINT  F 

7 URITE  (23)  " FUNCTION  F(X,Y)", 

8 “C  EXAMPLE  PR06  URITTEN  UITH  FTNOUT.”  , 

9 F, 

tO  ” RETURN",  " END" 

It  « UE  HAVE  URITTEN  A SIMPLE  PROGRAM  ON  UNIT  23,  NOU  UE  INVOKE  FTNOUT  TO 

12  • THIS  ALTRAN  OUTPUT  TO  LE6AL  FORTRAN. 

13  FTNOUT 

14  END 


NANE/EXTNAME 

USE 

TYPE  STRUC 

PREC  CLASS  SCOPE  DB 

LAY 

F 

VAR 

AL6 

L 

L*001 

X 

IND 

ALS 

L*001 

Y 

IND 

AL6 

L*00t 

EXPAND/S9XPNB 

PROC 

AL6 

L 

S 

X 

FTNOUT 

PROC 

L 

S 

X 

MAIN 

PROC 

L 

s 

X 

0PTS/S90PTS 

PROC 

INT 

s 

X 

1*001 

LAY 

C EXAMPLE  PROG  MRITT 

CONS 

CHAR 

s 

1000000 

CONS 

INT 

s 

10 

CONS 

INT 

s 

201 

CONS 

INT 

s 

23 

CONS 

INT 

s 

2 

CONS 

INT 

s 

3 

CONS 

INT 

s 

72 

CONS 

INT 

s 

END 

CONS 

CHAR 

s 

FUNCTION  F(X,Y 

CONS 

CHAR 

s 

RETURN 

CONS 

CHAR 

s 

« F 


X**3  ♦ A*X**2*Y  ♦ 3000000*X**2  ♦ 12*X*Y**2  ♦ 12000000*X*Y  ♦ 

3 0000000000004 X + 8*Y**3  + 1 2000000* Y**2  ♦ 4 0000000 0000 0«Y  ♦ 
10000.00000000000000 
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***  NORMAL  RETURN  FROM  MAIN  PROCEDURE 

***  RUN  STATISTICS 

.046  SECONDS  ELAPSED 
14  DIGITS  IN  SHORT  INTEGERS 
, 28  DIGITS  IN  LONG  INTEGERS 

10017  UORDS  IN  WORKSPACE 
388  MAXIMUM  UORDS  USED 
149  CURRENT  UORDS  USED 
0 GARDA6E  COLLECTIONS 


8 FUNCTION  F(X,Y) 

N C EXAMPLE  PROG  WRITTEN  UITH  FTNOUT. 

8 F 

X**3  ♦ 6*X**2*Y  ♦ 3000000*X**2  + 12*X*Y**2  + 12000000*X»Y  + 
3000000000000*X  ♦ 8*Y**3  ♦ 12000000*Y**2  ♦ 6000000000000* Y + 
10000.00000000000000 
8 RETURN 

8 END 


I 
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ALTRAN  VERSION  1 LEVEL  9 


t 

PROCEDURE 

NAIN 

2 

ALGEBRAIC 

(X:20) 

TCHEBY fT 

3 

ALTRAN  TCHEBY 

4 

INTE6ER  N 

S 

OPTS< 101 ,1 ) 

A 

BO  N * 0,3 

7 

T * TCHEBY(N.X) 

a 

URITE  T 

9 

DOEND 

10 

END 

NANE/EXTNANE 

USE 

TYPE 

STRUC  PREC  CLASS  SCOPE 

TCHEBY 

PROC 

ALG 

L 

S 

X 

T 

VAR 

ALG 

X 

IND 

AL6 

NAIN 

PROC 

L 

S 

X 

N 

VAR 

INT 

0PTS/S90PTS 

PROC 

INT 

S 

X 

L *001 

LAY 

0 

CONS 

INT 

S 

101 

CONS 

INT 

S 

1 

CONS 

INT 

s 

20 

CONS 

INT 

S 

3 

CONS 

INT 

S 

L:*001 

L+001 

L*OOI 


ALTRAN  VERSION  1 LEVEL  9 


1 PROCEDURE  TCHEBY(N,X> 

2 ALGEBRAIC  TCHEBYfX 

3 STATIC  X 

4 INTEGER  N 

5 IF(N  .EO.  0)  RETURN  <1) 

4 IF<N  .EG.  1)  RETURN  (X) 

7 RETURN  ( 2*X*TCHEBY(N-1) 

8 ENB 


- TCHEBY<N-2)  ) 


NANE/EXTNAHE 


N 

TCHEBY 

X 

0 

1 

2 


USE  TYPE  STRUC  PREC  CLASS  SCOPE  DB  LAY  ADDR 


VAR  INT 
PROC  ALG 
VAR  ALG 
CONS  INT 
CONS  INT 
CONS  INT 


S 

s 

s 

s 

s 


0 

X 

D 


24 


X 


2*X**2  - 1 
« T 

X * ( 4*X**2  - 3 ) 


***  NORMAL  RETURN  FROM  MAIN  PROCEDURE 

***  RUN  STATISTICS 

.048  SECONDS  ELAPSED 
14  DIGITS  IN  SHORT  INTE6ERS 
28  DIGITS  IN  LONG  INTEGERS 
17614  WORDS  IN  WORKSPACE 
395  MAXIMUM  WORDS  USED 
194  CURRENT  WORDS  USED 
0 GARDAGE  COLLECTIONS 


' 

» t 


HFY  NOS/BE  1.2  KAFB  009  NFY  03/27/78 
FLCN-314000  NXCN*314000  FLEC*1720K  NXEC-0750K 

20.48.26. EDR00K4  FROM  NX2/IU 

20.48.27. IP  00000320  WORDS  - FILE  INPUT  , DC  04 

20.48.27. EDRf T77,P60. 

20.48.27.  ACCOUNT  ( RHOADES  , »«««*«-*« , DYP , 1 85 1 ) 
20.48.27.SYSBULKBATCH) 

20. 48.28.  DISPOSE (OUTPUT) 

20.48.28.  ATTACH ( OLD , ALTRANL IB , I D*DYSXCER ) 

20. 48. 28.  PF  CYCLE  NO.  « 003 

20. 48. 29.  LIBRARY (OLD) 

20. 48. 29.  MAP (OFF) 

20.48. 29. C0PYCR(INPUT,SYSIN) 

20.48.29. ALTRAN(SYSIN) 

20.48.37.  STOP 

20.48. 38. FTN(A,I*F0RTIN,R*0) 

20.48.41.  .074  CP  SECONDS  COMPILATION  TINE 

20. 48. 41.  RFL, 140000.  GETS  ADDITIONAL  UORKSPAC 

20.48.41 . E  -NOT  NEEDED  FOR  THIS  EXAMPLE 

20.48.41 . L0AD(L6O) 

20.48.41 . XEQ. 

20.48.52.  EXIT 

20.48.52.  EXIT(S) 

20.48.52. OP  00000640  WORDS  - FILE  OUTPUT  , DC  40 

20. 48. 52.  NS  3584  WORDS  ( 75264  MAX  USED) 

20. 48. 52.  CPA  1.190  SEC.  1.190  ADJ. 

20.48.52.10  3.693  SEC.  .923  ADJ. 

20.48.52. CN  88.634  KUS.  .168  ADJ. 

20. 48. 52. SS  3.424 

20.48.52. **  PRIORITY  JOB  ** 

20.48.52. PP  10.571  SEC.  DATE  05/01/78 

20. 48. 52.  COST  ESTINATE  0.57 

20. 48. 52.  EJ  END  OF  JOB,  IU 


